home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / windows / win31 / macsyma.arj / MACSDEMO.EXE / NUSUM.OUT < prev    next >
Encoding:
Text File  |  1993-09-11  |  913 b   |  17 lines
  1.  
  2. (c1) nusum(n*n!,n,0,n);
  3. C:\MACSD2B\share\nusum.fas being loaded.
  4. |$label(0,15,Times New Roman,$(d1$))$paren(n$in( + )1,$(,$))!$hinge()$in( - )1
  5.  
  6. (c2) nusum(n^4*4^n/binomial(2*n,n),n,0,n);
  7. |$label(0,15,Times New Roman,$(d2$))$q(2$in( )$paren(n$in( + )1,$(,$))$in( )$paren(63$in( )$sup(n,4)$in( + )112$in( )$sup(n,3)$in( + )18$in( )$sup(n,2)$in( - )22$in( )n$in( + )3,$(,$))$in( )$sup(4,n),693$in( )$paren($over(2$in( )n,n,Y)))$hinge()$in( - )$q(2,231)
  8.  
  9. (c3) unsum(%,n);
  10. |$label(0,15,Times New Roman,$(d3$))$q($sup(n,4)$in( )$sup(4,n),$paren($over(2$in( )n,n,Y)))
  11.  
  12. (c4) unsum(prod(i^2,i,1,n),n);
  13. |$label(0,15,Times New Roman,$(d4$))$open($()$product($sup(i,2),i = 1,n$in( - )1)$close($))$hinge()$in( )$open($()n$hinge()$in( - )1$close($))$hinge()$in( )$open($()n$hinge()$in( + )1$close($))
  14.  
  15. (c5) nusum(%,n,1,n);
  16. |$label(0,15,Times New Roman,$(d5$))$product($sup(i,2),i = 1,n)$hinge()$in( - )1
  17.